| NotSameErrorMessage method |
Applies to
TTestCase
Declaration
Function NotSameErrorMessage(expected, actual, msg: string): string;Implementation
function TTestCase.NotSameErrorMessage(expected, actual, msg: string): string;
begin
if (msg <> '') then
msg := msg + ', ';
Result := Format('%s expected:<%s> but was:<%s>', [msg, expected, actual])
End; |
|
|